home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / parse5.rexx < prev    next >
OS/2 REXX Batch file  |  1978-02-18  |  211b  |  13 lines
  1. /* GET INLINE FILENAME */
  2. call open(place, 'env:RPROGR')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. fileC = SUBSTR( wher , 2 , x )
  8. file = SUBSTR( wher , 2 , x )
  9.  
  10. ADDRESS 'AV.REXX'
  11.  
  12. SETVAR PATH4 fileC
  13.